home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VQCELLAR.S < prev    next >
Text File  |  1993-03-27  |  2KB  |  59 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5.  
  6. ;*------------------------------------------------------------------------
  7. ;* Inquire Cell array.    Another weird function.
  8. ;*------------------------------------------------------------------------
  9.  
  10.           globl     _vq_cellarray
  11. _vq_cellarray:
  12. ;    .cargs    #8,handle.w,pxy.l,rowlen.w,numrows.w,elused.l,rowsused.l,status.l,colarray.l
  13.  
  14. handle      =         8
  15. pxy       =         10
  16. rowlen      =         14
  17. numrows   =         16
  18. elused      =         20
  19. rowsused  =         24
  20. colarray  =         28
  21.  
  22.           link        a6,#0
  23.  
  24.  
  25. ;          VContrl    #27,,#2,#0
  26.  
  27.           clr.l     -(sp)                ; contrl[11,10]
  28.           clr.w     -(sp)                ; contrl[9]
  29.           move.w    numrows(a6),-(sp)    ; contrl[8]
  30.           move.w    rowlen(a6),-(sp)    ; contrl[[7]
  31.           move.w    handle(a6),-(sp)    ; contrl[6]
  32.           clr.l     -(sp)                ; contrl[5,4]
  33.           clr.w     -(sp)                ; contrl[3]
  34.           subq.l    #2,sp                ; contrl[2]
  35.           move.w    #2,-(sp)            ; contrl[1]
  36.           move.w    #27,-(sp)            ; contrl[0]
  37.  
  38.           subq.l    #4,sp                ;* -> ptsout
  39.           move.l    colarray(a6),-(sp)    ;* -> intout
  40.           move.l    pxy(a6),-(sp)        ;* -> ptsin
  41.           move.l    colarray(a6),-(sp)    ;* -> intin
  42.           pea        16(sp)                ;* -> contrl
  43.  
  44.           move.l    sp,d1
  45.           jsr        vditrap
  46.           lea        20(sp),sp            ; pop off vdipb groodah
  47.  
  48.           move.l    elused(a6),a0
  49.           move.w    18(sp),(a0)         ; return contrl[9]
  50.           move.l    rowsused(a6),a0
  51.           move.w    20(sp),(a0)         ; return contrl[10]
  52.           move.l    status(a6),a0
  53.           move.w    22(sp),(a0)         ; return contrl[11]
  54.  
  55.           unlk        a6
  56.           rts
  57.  
  58.           end
  59.